home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / library / reqtlsdv.lha / ReqTools / Glue / PCQ / pcq_glue.lha / Utility.i < prev   
Text File  |  1992-09-12  |  1KB  |  48 lines
  1. {
  2.  
  3.     Utility.i for PCQ Pascal
  4.  
  5.     This is the Utility.i file for ReqTools.i (PCQ Pascal.)  As far as I
  6.     gather the HSPascal implementation uses only the types and consts from
  7.     here, and I happen to be under 1.3, so I left out the functions.  When
  8.     Patrick Quaid completes his 2.0 includes for PCQ, his Utility.i file
  9.     should be compatible with this (I _hope_ ;-)
  10.  
  11.     Translated from HSPascal to PCQ Pascal Sept 12 1992 by Chris Pressey
  12.  
  13. }
  14.  
  15. {$I "Include:Exec/Exec.i"}
  16.  
  17. Type
  18.     Hook = Record
  19.                 h_MinNode  : MinNode;
  20.                 h_Entry    : ^Integer;
  21.                 h_SubEntry : ^Integer;
  22.                 h_Data     : Address;
  23.             End;
  24.     HookPtr = ^Hook;
  25.             
  26.     Tag = Integer;
  27.  
  28.     TagItem = Record
  29.                ti_Tag  : Tag;
  30.                ti_Data : Integer;
  31.                End;
  32.     TagItemPtr = ^TagItem;
  33.                 
  34. Const
  35.  
  36. TAG_DONE         =    0;
  37. TAG_END          =    0;
  38. TAG_IGNORE       =    1;
  39. TAG_MORE         =    2;
  40. TAG_SKIP         =    3;
  41. TAG_USER         =    $80000000;
  42. TAGFILTER_AND    =    0;
  43. TAGFILTER_NOT    =    1;
  44.  
  45. Var
  46.     UtilityBase : LibraryPtr;
  47.  
  48.